supplied-by
: allot-data ( addr u -- addr' )  here dup >r  swap dup allot move  r> ;
